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SPHERE PASCAL 

Both Roger and I are working on patching a pretty well documented 
version of Pascal for cassette users. From the letter that follows, 
there is at least one other Sphere user working on this. Please let 
us know who you are so we can Join forces, 

I have also included in the newsletter a few sheets of the in- 
struction manual so that you can get the feel of the capabilities of 
this particular implementation, A complete "supervisor" program and 
"editor" are part of the package. The supervisor handles operating 
commands like LOAD, SAVE, EDIT, COMPILE, GO, MOVE and QUIT, The editor 
uses fairly standard means to help in creating the Pascal source. The 
c ommands a re : NEW, TOP, BOTTOM, UP, DOWN, FIND, PRINT, INSERT, KILL, REPLA CE 
and QUIT, 

Roger and I have Ideas on how to handle floating point with the 
package although we have some work to do before addressing that need. 
Please let us know If you are at all Interested In Pascal, 

Jeff 



EDITOR'S NOTE 

We have tried to start even the late subscription renewals with 
the August Issue as this keeps our bookkeeping simpler. If you 
renewed late and failed to receive the August, October or the 
December Issue, please let us know. 

Editors 



o 
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(902) 861-2202 



January 14, 1980 



Dr. Jeffrey E. Brownstein 
2 Tor Road 
Wappingers Falls 
NY 12590 

Dear Dr. Brownstein: 

Thank you for your order for a copy of DYNASOFT PASCAL. A 
program cassette and user's manual are enclosed. 

Appendix B of the manual should contain enough information 
to allow you to patch my package to run on the Sphere computer, 
but I have also enclosed the source code for the p-code inter- 
preter, which is the only part of the system that interfaces 
with external input-output routines. The program was assembled 
with a general-purpose ma chine -in dependent cross-assembler, 
and the mnemonics are somewhat different from Motorola's , 
but the translation should be obvious. The rest of the system 
is in pseudo-code and contains only one reference to the 
"outside world": a jump (in p-code) to the main entry point 
for MIKBUG/SWTBUG which implements the SUPERVISOR "Quit" 
command (see the bottom of page B-2) . I would prefer not to 
release the source code for the compiler itself at this time. 

I would be very pleased to have you publish your patches in 
the Sphere Journal, provided that I am correct in my inter- 
pretation that it is only the patches (not the entire package) 
that you intend to publish. It would probably bring me another 
wave of new orders, for which I would of course be grateful. 
Incidentally, the very first order I received was also from 
a Sphere user. 

If you have any difficulties adapting the package, I can be 
reached most evenings at the above number. In any case, 
please let me know how you make out. I would be particularly 
interested in seeing any patches for a disk environment , since 
I have not yet had a chance to address that problem myself. 

Please note that in spite of what Byte magazine says, I am 
located in Nova Scotia, not North Saskatchewan. 

- j ■ 
Yours truly, 



Allan G. Jost, Ph.D. 



re 
Enclosures 



I. THE DYNASOFT PASCAL LANGUAGE 

The language PASCAL was originally conceived by Professor 
Niklaus Wirth at the Institut fuer Informatik, ETH Zurich, Switzerland, 
in 1968. It was designed to be a vehicle for the teaching of programming 
as a systematic discipline, but it has proven to be highly suited to a 
variety of applications and it has gained a wide following, while there 
have been several successful imolementations of the full language on 
microcomputer systems, they typically require the order of U8K of memory 
and a disk drive, and this has limited their use to relatively large 
and expensive systems. One of the reasons for the success of BASIC on 
microcomputers has been the wide availability of practical implementations 
which will run on small scale cassette-based systems. DYNASOFT PASCAL 
was designed to make a workable implementation of PASCAL available to 
this class of small scale systems using the 6800 microprocessor. It is 
based on a subset of standard PASCAL which includes most of the standard 
control structures but omits some of the more sophisticated data 
structuring features and floating point arithmetic . The result is a 
complete high-level language program development system which retains 
most of the flavour and structure of standard PASCAL, but which will 
run on a system with as little as 12K bytes of memory and a single 
cassette drive. 

The complete definition of standard PASCAL is contained in 
the book "PASCAL: User Manual and Report", by Kathleen Jensen and 
Niklaus Wirth, which is recommended reading for anyone who is seriously 
interested in the PASCAL language. What follows here is a summary of the 
DYNASOFT subset of standard PASCAL. 

Vocabulary 

The basic symbols of DYNASOFT PASCAL consist of the upper case 
letters, the digits 0-9, certain special characters and character 
combinations , and a set of keyword or reserved words which have special 
meaning to the compiler. The reserved words are : 



AND 


ARRAY 


BEGIN 


CASE 


CONST 


DIV 


DO 


DCWNTO 


ELSE 


END 


EXTERN 


FOR 


FORWARD 


FUNCTION 


IF 


MOD 


NOT 


OF 


OR 


OTHERWISE 


PROCEDURE 


PROGRAM 


READ 


REPEAT 


THEN 


TO 


TYPE 


UNTIL 


VAR 


WHILE 


WRITE 


WRITELN 











Tnese words may not be used for any purpose other than that 
intended in the definition of the language , which means in particular 
that they may not be used as identifiers . 



Identifiers are user-defined names which denote constants , 
variables , types , procedures or functions , and consist of a letter 
followed by any combination of letters and digits, the first four of 



4\ 



which must be unique. Since the compiler uses only the first four 
cnaracters of words , no identifier may have its first four characters 
the same as any reserved word. 

There is a set of identifiers which are pre-declared in DYNASOFT 
PASCAL. These are all names of pre-defined data types or standard pro- 
cedures or functions. These names are not reserved words, and they may 
be re-declared by the user if desired. The pre-declared identifiers are: 



INTEGER 
LINK 



CHAR 
MOVL 



ODD 
MOVR 



SHL 
ECND 



SHR 
SETP 



HALT 



The special symbols are : 
+ - := , 

; : <> <= 

> >= ( ) C 
(* *) 



ft 
< 

] 



Comments begin with the character pair '(*' and end with the first 
subsequent appearance of the character pair '*)' . Comments may appear 
anywhere a blank may appear, except embedded in a literal character string. 
The compiler listing option is controlled by a special form of comment. 
A comment beginning with the sequence f (*$L-' suppresses source code 
listing (except for error lines), and the sequence , (*$L+' turns the 
listing option back on. 

Character strings are enclosed in single quotes, and may be up 
to 80 characters long. It is not possible to imbed quote marks in a 
string. 

Syntax: 

The syntax rules of PASCAL will be illustrated with a graphical 
aid known as the syntax diagram, which will require some explanation. A 
diagram contains two kinds of symbols : terminal symbols and non-terminal 
symbols . Terminal symbols are written in round or oval enclosures , and 
consist of keywords and special characters which have special meaning in 
the language . Non-terminal symbols are written in rectangular boxes , and 
are the names of other diagrams containing a further expansion of the syntax. 
The valid paths through a syntax diagram are indicated by directional 
arrows. The diagram for the non- terminal symbol program is shown below. 
Starting with program , and repeatedly expanding the non- terminals using 
other diagrams, any path through the syntax diagrams represents a 
syntactically valid program. 



PROGRAM 




identifier 




i block 



O 



C"' a ^ ^ 



MATRIX OPERATORS IN CSS BASIC 



c 



It Is always possible to write matrix operations using Basic by 
using for-next loops(\load, operate on, and print out an array. One 
of the reasons that this Is sometimes les3 than Ideal Is that it is 
really difficult to see what the triple and quadruple nested loops are 
doing when you look at a program. Also, the programs take a long time 
to write and debug. They run slower than programs using matrix oper- 
ators dlreotly 

Probably this project (which is applicable to all of the Utterwtk 
style 6800 Basics) will be entered In the 6800 JOURNAL program contest 
If I finish It In time. Meanwhile, all but two modules of the group 
are running. The package consists oft 



MATPRINT 
MATTAB 
MAT SPREAD 

MAT RE AD 
MATSET 



MATIDN 



Prints out a specified array to screen or other port 
Tabs the printed array away from the left of screen 
Spreads out the printed array for easier viewing 

Reads In an array from Data statements 
Sets the whole array eaual to some number. Replaces 
MAT ZER and MAT GON which are limited to setting to 
only zero or one. 



Sets up an Identity matrix according to your dimensions 
MATSOALARLET ADD, subtract, multiply or divide each element by a 
Scalar (variable). 
MATSOALARLET A (1,1)= B( 1,1) + X 
MATLET Add, subtract, multiply and divide each element by the 

same element of a second array and place the results In 
a third array. 

MATLET A(1,1U B(l,l) / 0(1,1) 
Note: This Is not true algebraic matrix multiplication or 

division. There Is no true algebraic matrix division 
and algebraic multiplication Is handled In this 
package by MATPRODUQT 

Changes the array around. An example} A(S,9) Is changed 
into the new array B(9,2). The old array remains Intact 

Does algebraic matrix multiplication (THIS MODULE NOT 
FINISHED) 

MATINVERSE Calculates the Inverse matrix (THIS MODULE NOT FINISHED) 

Note that a matrix Is called by Its first member. This will usually 

be as follows: A(0,0) or A(l,l) depending on whether Bases has been 

used. 

Also, It Is possible to use MATREAD, MATPRINT, and MATTAB to handle a 

one dimension list like B(80) 



MATT RAN S 
MATPRODUCT 



DE LDX 30 
DF STX 60 
DE LDX 20 
BD JSB 12B0 
DF STX 20 
DE LDX 63 
09 DEX 
09 DEX 
EE LDX 00 
DF STX 6E 

DATA 96 LDAA 63 

D6 LDAB 64 
DE LDX 60 
A7 STAAXOO 
E7 STABX01 
DE LDX 44 
90 OPX 20 
27 BEQ 18 

LOOP BD J SB OFOD 

24 BOO ID 
A 6 LDAAXOO 
27 BEQ 05 

EBB 06 LDAB#19 

7E JMP 0FE7 

L00P1 90 OPX 22 

27 BEQ F7 
A 6 LDAAXOO 
08 INX 
4D TSTA 
26 BNE F6 

TOKN A 6 LDAAX03 

81 0MPA#08 
26 BNE FO 
8D 3 SB IF 
20 BBA DE 

BEAD BD J SB 032B 

A 6 LDAAXOO 
81 0MPA#2G 
26 BNE 01 
08 INX 

STOP ■ DF STX 44 

BD J SB 04 AG 
DE LDX 63 
8D BSB 09 
90 OPX 6E 
26 BNE 01 
39 BTS 

OONT DF STX 63 

20 BBA B2 

INX6 08 INX 

INX5 08 INX 

08 INX 
08 INX 
08 INX 
08 INX 
39 BTS 



■-#-* *ma Yfi'ETS 27"*"*"*" * 

Save number build buffer pointer 

In 60 

Get Basic source pointer 

Gall read routine 

Save new Basic Source pointer 

Basic variable pointer loaded in X 



Backup in variable table 

Store in 6E where the variable ends 

Move the info into number build buffer 



Get Data Pointer 

Compare to beginning of program 

TOKN 

Put data Into number build buffer 

BEAD 

LOOP 
error 19 



Compare to end of program 

EBB 



Test for end of line 
L00P1 

Look for "DATA" in token form 

L00P1 

INX5 

LOOP 

Put some data into variable table 

look for comma 

Bypass comma 

Store new data pointer 

Beset number build buffer pointer 

INX6 Advance to next storage In variable table 
End oft array? 

Exit from MATBEAD 

DATA 

Subroutine to Increment the Index register 

thus advancing In the variable table 

*****MATBEAD Is relocatable* All of the modules 
are complete Individual additions. You could 
add to your OSS Basic any or all of them. Use 
of common subroutines could shorten the package 
though. My latest cassette version Is complete 
with the matrix operators except MATPBODUQT and 
and MATINVEBSE which are not completed* 



1 





1 

2 


1 


* 

♦ DISASSEMBLED LISTER ROUTINE 


3 

4 
5 




* PRODUCES FORMATTED HE X DUMPS 

* 


6 

7 


50 00 


* 




ORG 


*5000 




9 


5000 


♦ 


ACIA 


EQU 


*F050 


PRINTER. PORT 


10 




* 










11 


5000 




KfcDD 


EQU 


$F04 


KEYBOARD. DATA 


12 


5000 




DP.UG 


EOU 


*FE64 


PDSV3NF DBUGER 


13 


5000 




CURS 


EOU 


UC 


CRT CURSOR 


14 


5000 




EDTF 


EO.U 


$37 


EDITOR FLAG 


15 


5000 




ON 


EOU 


%A 


SETS UP. ACI A 


16 


5000 




OFF 


EOU 


$4A 


SETS D5R, 


IT 


5000 




R$ET 


EOU 


%l 3 


RESETS ACIA 


16 
19 
20 


5000 


*. 


ACK 


EQU 


6 


ANSWERBACK 




* 










21 




* 










22 


5000 


BD5 10 3 


STRT 


JSP. 


IN IT 


INITZ I/O PORT 


23 


500 3 


CE5 13E 




LDX 


#FF$ 


FORM FEED 


24 


5006 


BD5 0D2 




JSR 


PDA1 




v. .J 

26 


50 0$ 


CE5 14E 


LIST 


LDX . 


♦ ORG * 


START ADDR..MSG 


27 


500C 


BD5 0D2 




JSR 


PDA1 




2$ 


50 OF 


BD5 09F 




JSR 


BADR 


GET START A DDR 


29 


5012 


CE514S 


NEXT 


LDX 


#EOL$ 


NEW LINE. 


30 


5015 


BD5 0D2 




JSP: 


PDA1 




31 


50 IS 


CE515D 


mil 


LDX 


#XHI 


X I = XH I 


32 


5G1B 


BD5QFB 




JSR 


04 HS 


PRINT ftDDR. 


33 


501E 


FE515D 




LDX 


XHI 


GET ADR. POI NTR 


34 


5021 


A 60 




LDAA 


0. X 


GRAB BYTE 


35 


50 2 3 


B 7 5 1 5 9 




STftA 


TEMP 




36 


50 26 


BD5 0FD 




JSR 


02HS 


PRINT DATA. 


37 


50 29 


FF515D 




STX 


XHI 




3S 


502C 


BD50FF 




JSR 


OUTS 


PRINT SPACE 


39 


502F 


5F 




CLRB 






40 


5030 


B 6 5 1 5 9 




LDAA 


TEMP 


'restore, a 


41 


50 3 3 


S16C 




CMP A 


*%%C : 


OP CODE. .' CPX' 7 


4 2 


50 35 


2718 




&EQ 


OP. 3 


THREE BYTES 


43 


50 3? 


S1§E 




CMP A 


#*8E 


OP CODE. .' LDS' ? 


44 


5039 


2714 




BES 


OP, 3 




45 


503B 


81CE 




CMP A 


#$CE 


OP CODE. .' LDX' ? 


46 


50 3D 


2710 




&EQ 


OP, 3 




47 


50 3F 


64F0 




AMD A 


#$F0 


MASK OFF. 


4d 


5041 


8 12 




CMP A 


*i 20 


BRANCH?. 


49 


5043 


270& 




BEQ 


OP. 2 




50 


5045 


8160 




CMP A 


*$ 60 . 


LESS THAN $ 60? 


51 


5047 


250 6 




BCS 


OP.l 




52 


5049 


9430 




ANDA 


#* 30 


MASK BITS 4 3,5 


53 


50 4 B 


8130 




CMP A 


#$ 30 


BOTH SET.? 


54 


50 40 


2601 




BNE 


OP. 2 




55 


504F 


5C 


OP. 3 


1NCB 






56 


5050 


5C 


OP, 2 


INCB 






57 


5051 


F7515A 


OP.l 


STAB 


BOX . 


PUT # IN. BOX 


56 


5054 


270$ 




BEQ 


GO 




59 


5056 


C101 




CMPB 


*1 


SET SPACECOUNT 


60 


5055 


2702 




BEQ 


0NE1 




61 


505A 


CBQ1 




ADDB 


#1 




62 


505C 


C DO 2 


0NE1 


ADDB 


#2 




63 


505E 


F7515C 


GO 


STAB 


SPCC 


SPACECOUNT. 


64 


5061 


F6515A 




LDAB 


BOX 


RESTORE. B 


65 


5064 


2710 




BEQ 


NXTI 


NEXT IN.S.TRUCTN 


66 


5066 


7A515A 




DEC 


BOX 




67 


5069 


2705 




BEQ 


NLY1 


PRINT NX.T BYTE 



68 506B BD50FB USR 04H9 PRINT 3. OF 3 ■ ' t> 

69 506E 2003 BRA SADR SAVEADDR * 

70 5070 BD50FD Nl.Yl J 3R 02HS PRINTBYTE & 3P 

71 5073 FF515D SADR STX XHI POINT TO NEXT 

72 5076 BC516 2 NXTI CPX ENDP DONE ? , 

73 5079 2603 BNE NT3T 

74 507B 7EFE64 BUGJ UMP DBUG GOTO DEBUGGER 

75 507E 7DF04O NT3T TST KBDD REPEATS - 

76 5091 2BF8 EMI BUGJ 

77 5083 B6515B LDAA LINC GET LINE. COUNT. 
76 508,6 8403 ANDA #3 MASK DOWN 

79 5068 2605 BNE NXTC UPDATE COLUMN* 

80 508A 7C515B INC LINC, BUMP LINECOUNT 

81 508D 2083 BRA NEXT NEW LINE 

§2 508F 7C515B NXTC INC LINC BUMP COUNTER 

83 5052 C607 LDAB #7 

94 5094 F0515C SUBB SPCC UPDATE SP CNT 

85 5097 8D6 6 SPCL BSR OUTS OUTPUT SPACE 

66 509$ 5A DECB 

8 7 50 9A 2 6F.B BNE SPCL SPACE LOOP 

88 509C 7E5018 JMP NXTl . NEXT-SAME LINE 

99 . . * 

90 . . * I/O SUBROUTINES 

9.1 . . * 

92 . . * BUILD ADDRES3 

9 3 50 9F 9 DOC BA.DR B SR BYTE . READ 2 FRAMES 

94 50A.1 B75 15D STAA XHI 

95 50A4 8D07 BSR BYTE 

96 50A6 B75 15E STAA XL0I4 

97 5QA9 FE5 15D LDX XHI X GETS ADDR 
9a 50 AC 39 RT3 

99 . , * INPUT f=YTE 

iOO 50AD 8D2E BYTE B3R IHEX GET HEX CHAR 

10 1 50AF 48 ASLA HOVE OVER 
102 50BO 48 ASLA 

10 3 508.1 4§ ASLA 

104 50 6 2 49 ASLA 

105 50B3 16 TAB SAVE IN B 

106 50B4 9D27 BSR IHEX . GET SECOND CH 

107 50 B6 18 ABA 
10 8 505? 16 TAB 

10 9 50 Be F.85 15F ADDS CKSH 

110 50BB F7515F STAB CKSM 

111 50BE 39 RTS 

112 * OUT HE* LEFT BCD DIGIT 

11.3 50BF 44 OTHL LSRA MOVE OVER 

114 50C0 44 L3RA 

115 50C1 44 LSRA 

11 6 50C.2 4 4 LSRA 

117 . . * OUT RIGHT BCD DIGIT 

118 50C3 840F OTHR ANDA #*F 

119 5.0C5 8B30 ADDA #$30 MAKE ASCII. 

120 50C.7 8139 CMPA #*39 

121 50C9 234D BLS OUTC 

122 50CB a BO 7 ADDA #7 

123 50CD 2049 BRA OUTC 

124 ,, * PRINT DATA POINTED AT BY X 

125 50CF 8D47 PDA2 BSR OUTC 

12 6 50D.I 08 I NX 

127 50D.2 A600 PDA1 LDAA 0,X 

128 50D4 8104 CMPA *4 EOT? 

129 50D.6 26F7 BNE PDA2 

130 50D8 39 RTS 

131 ., * 

132 5009 863F GOOF LDAA #' ? 

133 50DB 8D3B B 3R OUTC 

134 .. * INPUT HEX CHARACTER - 

135 50DD 8D4D IHEX BSR INCH 

136 50DF 8030 ■ SU&A **30 



137 50E1 2BF6 


BMI GOOF 




139 50E3 8109 


CMPA #9 




139 50E5 2F0A 


BLE IN1H 




14 50E.7 $111 


CMPA **H 




141 50E9 2BEE 


BMI GOOF 




142 50EB $116 


CMPA **16 




143 50ED 2EEA 


BGT GOOF 




144 50EF $007 


SUBA *7 




145 50F1 39 


1N1H RTS 


- 


146 . * OUTPUT 2 HEX CHAR 




147 50F2 A600 


0T2H LDAA 0»X 




14$ 50F4 8DC9 


0?,HA B5R OTHL 




149 5QF.6 A600 


LDAA O.X 




150 50F8 06 


INX 




151 50F9 20C$ 


BRA OTHR 




152 * OUTPUT 4 HEX CHAR t SPACE 


15 3 50*FB SDF5 


04H$ B9R 0T2H 




154 . * OUTPUT 2 HEX CHAP $ $1 


PACE 


155 50FD $DF3 


02.HS BSR 0T2H 




156 . . * OUTPUT A SPACE 




157 50FF 6620 


OUTS LDAA #32 ASCII SPACE. 


15$ 5101 2015 


BRA OUTC 




15 9 * 

16 . * TURNS 


■> ON TERMINAL AND 


(MA.IT8 


16 1 . . * FOR t» 


lOTORS TO GET UP 


TC SPEED. 


162 . * 






16 3 5103 CEF050 


I NIT LDX SAC I A 


GET PORT. ADDR 


16 4 5106 8 613 


LDAA 4RSET 


RESET A C.I A. 


165 5108 A700 


3TAA O.X 




16 6 510ft $60 A 


LDAA *0N 


BR I NG UP. D$R 


16? 510C A700 


STAA O.X 




16$ 510E $60 3 


LDAA #3 


TIME COUNT. 


16 9 5110 09 


TL.UP DEX 




17 5U.1 2 6FD 


BNE TLUP 




17 1 5113 4A 


DECA 




17 2 5U.4 2 6FA 


BNE TLUP 




17 3 5116 $606 

■i T A & 


SACK LDAA *ACK 


SELECT TERM I ML 


17 4 . . * 
175 . . * 






176 .. * SENDS CHAP IN A AT 150 BAUD 


177 . . * 






17$ 511$ FF5160 


OUTC STX XTMP 


SAVE REGISTERS 


179 51.16 36 


PSHA 




180 51K CEF050 


LDX #ACIA 


. ASYNC PORT* Z, 


181 51 IF $602 


OL.UP LDAA #2 


TEST MASK 


18 2 512.1 A 40 


ANDA O.X 


AC I A BUF, MPTY? 


183 5123 27FA 


BES OLUP 


LOOP UN.T.I L OK 


1§4 5125 3 2 


PULA 


GET ORIG. CHAR 


185 5126 A701 


5 T A A 1 » X 


PUT IN OUT BUF 


1ft 6 512$ FES 160 


OF, XT LDX XTMP 


RESTORE. INDEX 


197 51 2B 39 


RTS 


AND RETURN 


18$ . . * 






169 * INPUTS CHARACTER INTO 


A 


190 . . * 






191 512C FF5160 


INCH STX XTMP 


SAVE INDEX 


192 512F CEF050 


LDX #ACI A 


GET AC I A. AD PR 


193 51 32 $601 


IL.UP LDAA #1 


TEST BIT. MASK 


194 51 34 A400 


ANDA O.X 


ANYTHNG. there? 


195 5136 27FA 


BE9 ILUP 


TRY AGAIN 


196 513$ A601 


LDAA 1»X 


LOAD IN. CHAR 


197 SUA 847F 


ANDA **7F 


STRIP PARITY 


19$ 513C 20EA 


BRA OEXT 


RESTORE. Jfc. EXIT 


199 .. * 






200 . . * 






201 513E OAOA 


FF* FDB $AOA 


' • ■ ' 


202 5140 OAOA 


FDB $AOA 


FORM' FEED. 


203 514.2 OAOA 


FDB $AOA 




204 5144 OAOA 


FDB *AOA 




205 514.6 OAOA 


FDB *AOA 




206. 514$ ODOD 


EOL$ FDB *DOD 





f 



JO 



207 


514ft 


OAOQ 




FDB 


*A00 




206 


514.C 


0004 




FDB 


4. 




209 




* 










210 


51 4E 


ODOA 


cmc* 


FDB 


*D0A 




21 1 


5150 


005 3 




FDB 


$53 


• 


11 ^ 


5152 


5441 




FDB 


*5441 




21 3 


5154 


5254 




FDB 


$5254 




21 4 


5156 


2024 




FDB 


$2024 




215 


51 59 


04 




FCB 


4 




216 




* 










21 7 




& 










218 


5159 




TEMP 


RMB 


.1 


ACCA TEMP 


219 


515A 




BOX 


RMB 


1 


OP TYPE. BOX 


220 


515B 




LINC 


RMB 


1 


LINE COUNT 


"? ? 1 


515C 




spec 


RMB 


1 


SPACES COUNT 


22 2 


515D 




XHI 


RMB 


1 


ADDRESS. 


t'. fc. *J 


515E 




XI OW 


RMB 


1 




2 2 4 


515F 




CKSM 


RMB 


1 




o n c 


51 £0 




XT MP 


RMB 


2 




22 6 


51:6.2 




ENDP 


RMB 


2 




22 7 




* 










22$ 




* 










22 9 


5164 




ENDS 


END 







E$R = 



SYMBOL T 


ABLE « 








AC I A 


F05 ' 


KBDD 


P040 


DBUG 


FE6 4 


CURS 


00.1 C 


EDTF 


00 37 


ON 


OOOA 


OFF 


004 ft 


RSET 


0013 


ACK 


0006 


STRT 


5 00 


LIST 


5009 


NEXT 


5012 


NxTl 


5013 


OP, 3 


504F 


OP. 2 


5050 


OP . 1 


5 05 1 


0NE1 


505C 


GO 


505E 


NL Yl. 


5 07 


S ADR 


5073 


NXTI 


5076 


BUGv* 


5 07 B 


N T 5 T 


507E 


NXTC 


5Q8F 


5PCL 


509 7 


EADR 


50&F 


BYTE 


50AD 


OTHL 


50BF 


GTHR 


50C-3 


PDA 2 


50CF 


PDAl 


5 0D2 


GOOF 


SODS 


IHEX 


5 ODD 


IN 1H 


50F1 


0T2H- 


50F2 


02HA 


50F4 


4 HS 


50FB 


C2HS 


50FD 


OUTS 


50FF 


IN IT 


510 3 


TLUP 


51 10 


SACK 


5U6 


OUTC 


51 IS 


OLUP 


5J1F 


OEXT 


5129 


INCH 


512C 


ILUP 


5132 


FF* 


513E 


E0L$ 


5149 


ORG* 


SUE 


TEMP 


5159 


BOX 


515A 


LINC 


515B 


SPCC 


515C 


XHI 


515D 


XLOW 


53 5E 


CKSM 


515F 


XT MP 


51.6 


ENDP 


5162 


ENDS 


5164 
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BIOBHYTHM CALENDAB WITH NAME AND DATE FILES (FOB OSS BASIC) 



o° 



0001 REM 

0005 LET X=0 

0006 INPUT "NUMBER OF 
0010 INPUT "INPUT FILE. NAME" f Ft 

F$ 
■NAME" » N* 
0030 INPUT "HATE MM*DB» YYYY" »M»D»Y 



0040 "('WRITE MiD»Y 

/\ t\ IU" /* l"- i r ; i •• i ' 

vvjv uLtior. 

0060 LET X-Xtj. 

0070 IF X>-2 THEN END 

0080 GOTO 20 

7 V C.i'-ii.i 

100 LET X"0 

0105 INPUT "NUMBER OF OUTPUTS" ,2 

0110 INPUT "INPUT FILE NAME"?F$ 

0120 OPEN I Fl 

0125 TREAD N$ 

lOV i IM- Mil fl» *.' ? t 



0140 PRINT #©»N*»MSD» , l 

0150 LET X=X+1 

0155 PRINT X 

0160 IF X>^Z THEN END 

0170 GOTO 120 

0180 ENB 






© 



ft 



G.K.HALE 


6 


13 1932 


M.LONG 


1 


20 1920 


J. HART IN 


5 


7 1956 


J. STANFORD 


7 


19 1947 


S.ROBERTSON 


12 17 1963 


.J. PETERS 


1 


17 .1950 


S» BULL INS 


2 


J. vi 1 7 vJ 1 


C.PAUL 


/ 


.-, ~f .. rv "y ji 


A fi r" 'V 1"" J"f f- 

fl . r LIL P. »_■ 


1 


'•> .J n £r '"• 


S. FRANKLIN 




4 1951 


n . ru i~Li::.K 


J.'. 


> 18 1947 


*—■ I.-' A "V I"* <~- 

C> . I\ MIC3 


5 


1 17 4 *J 


G.RUDISILL 




a-:./ 17*5/ 


C.ROBERTSON 


y 


J. / A 7 *fr O 


.... ™ . v . ..... j j ( ._ . j r , t 

C * O i tvcNo 




4 I70i 



-3W btr-ft^tc ,£W~? -fcc ~hif><2. -fife <?*" c^7 ie 



Of &iofZHVTH« 



COMPUTER GENERATED 

3Es 'X O R H Y T H M C ft l_ E W D A R F" O R G - K •»• H A L_ E 



OCT - OCT 

CRITICAL UP 

IE P 

: . E P 

E P 

E ■ . P 

E P 
P E 



P 



1979 




DOWN 










~ ♦ ♦ ♦ . 


tt* 


. * ♦ » « 


1 


M 








2 


TU 








3 


U 






I 


4 


TH 






I 


5 


F 




I 




6 


OH 


I 






7 


su 


T 

J. 






8 


M 


I 






9 


TU 


I 






10 


U 


a. 








TH 


I 




! 
i 


1 A. 


F 




I 


P 


13 


8A 




P I 




14 


SU 


P 




T 
J. 


15 


M 


P 






16 


TU 


P 






17 


U 


P 






18 


TH 




P 


E 


19 


F 




E 


r 


20 


SA 


E 






21 


SU 


E 






£.£. 


H 


E 






23 


TU 


E 






24 


U 


E 








TH 




E 






F 






E 


n7 


OH 






E 


28 


SU 








29 


M 








30 


TU 








31 


W 









I 
p I 



IP 
I p 



IP 



E IF 



r 



197 


/■■« 

7 


1 


M 


'*> 


TU 


"V 


W 


4 


TH 


o 


SA 


/ 


;;:■ U 




H 


7 


TU 


J. ' t - : 




-i J. 


TH 


•i ■" 
X a. 

1 $ 


r" 


14 


b' u 


•i i::: 

J. ...» 


fi 


J. O 


iU 


■i -*:-* 
-i. / 


w 


I y 


-f i } 

i n 


1 T v 


r* 


•»■'*.-■-. 


SA 


**1 ^ 


SU 


*">**> 


n 


A. O 


TU 


.!•.'. "r 


W 




■r i » 

... f ri 




>"■ 

r 


'> '7 


OH 






*•.*." >' 


t 1 


30 


I U 


O J. 


> i 

w 
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****** ******* *.*. *********U**** **«■♦■**■**♦. **■*'«■** *"T 

23 DAY PHYSICAL CYCLE = P 28 DAY EMOTIONAL CYCLE = E 33 DAY INTELLECTUAL CYCLE 



THIS IS ONLY A DEMONSTRATION OF WHAT A COMPUTER CAN DO.' 
THIS COMPUTER IS USUALLY DOING ENGINEERING CALCULATIONS. 



""COMPLIMENTS OF — - 

LONG ENGINEERING CO. -- WINSTON-SALEM*- N.C. 



■is 



00 i REM ' "*** BI ORHYTHM < BD T 0~2 US I NG CSS SUPER BASIC V-4 

0°L00 DIM E P1< 23 ),P2< 23>,E1< 23 ) ,E2( 28 >,! ^3)^I2<33 ;_>_ 

03 10 HT'M W$< 7)j-L$< 41 )»MM12) 

l\% SE2 SKIES 

0135 PRINT'" BI ORHYTHM CALENDAR" 

0136 PRINT 

0137 PRINT "COMPUTING" _ 

0140 FOR N=l TO 23 „, „ , , ,<v*\ 

OL-,0 i FT pi><N)-SINC-A.283.18530/*<N-i)/2i> 

0160 LET PHN>=INT(21...5+20*P2<N>> ... 

0170 NEXT N 

01 BO FUR N=l TO 28 

n-tVft I FT F2( N^SIN( 6.28318530/^ N~l >/28> 

0200 LET El<N)=IN.T<2i»5+20*E2(N)) 
0210 NEXT N 

0'-'20 FUR N==l TO 33 '.........._ 

0^30 LEI I2< N)=SIN< 6* 283185307*( N-l )/33 ) 
0240 LET I1<N)=INT<21*5+20*I2CN>) 

0230 NEXT N _,. _ —■ 

0260 FUR N-l TO 7 
0270 READ W*( N ) 

0280 NEXT N . .... . . ... 

0290 FUR N"l TO 12 

030 READ M$(N) 

3 1 N E X T N 

0320 FDR N~l TO 41 

OodO Lb i i~*\ i'-* ■'•- 

0340 NEXT N 

0343 INPUT "TYPE OF INF 



LIT (SINGLE OR FILE )" »Z* 



IF ■;$--"F"a.E" iHEN GOTO 350 

THEN GOTO 400 



ij&'t/ .i.r 

-J 3 

0333 LET P*=="BiO DATES 



INPUT "NUMBER UF BIGEHYTHMS" i'l 



0360 PRINT "tNlt.K MONTH & YEAR FOR BIORHYTHM (MM 
0363 INPUT M4?Y4 

,-, ■ . /. / l i "' *.«■ V •■*• :*? 

JjOC i-C i .'->— V 

0370 OPEN.' I F$ 

Oi/ ' L> i Fit: Hi-' N'*» 

0380 IRE AD M?BsY 
03 VO GOTO 430 

0400 PRINT "ENTER NAME" 

0401 INPUT H% . u .,'. /v m, 

0402 PRINT "ENTER BIRTH DATE ( MM.DD , Yl YY >" 

Sw PRINT "ENTER MONTH & YEAR FOR BIORHYTHM (MmVyYYY)" 
0420 INPUT H4»Y4 
0430 GUSUB 1350 
0440 LET M=M4 

0430 LEi B=l ___ 

0460 LET Y : ~Y4 -- - ~" ~" ,: . 

0470 GUSUB 980 

0480 LEI Sl-J • 

0490 GUSUB 1350 - " '— " 

0500 LET 1.1=31 

0510 IF M4=12 THEN 570 

0520 GOSUB 1110 

0530 LE'i S3--N3 

0540 LET H=M.4+1 

0550 GUSUB 1110 

0560 LET L1-N3-S3 



0570 LET .B=J-S1+1 

0571 LET E=B+L1-1 - - 

0572 PRINT *0»CHR*<01) 

0573 PRINT #0»TAB< 5) J" COMPUTER GENERATED" 

0581 PRINT *0>TAB(5)$"B10RHYTHM CALENDAR FOR "5N* 

0582 SKIP #0>2 

0585 P R I N T * » CH R * < 2 ) 

0590 PRIN'i *0 »TAB< 10 ) JMt( M4 )JTAB< 64 ) JM*< M4 ).....- 

0600 PRINT S:K?AB?20)8-DOUN-.*TAB<37)I-CRITICAL-»TABC59) ! -UP-;TAB<64) J Y 

0610 PRINT #0 » TAB< i9)P'".. * ° * 

0620 PR I NT I!)?"m.hi.mi ^ 

0630 LEI V=0 
0640 FOR I~B TO E 
0650 LET V=V+1 
0660 LET J3=I-1 
0670 LET K1=1NT< 03/23 ) 
0680 LET. K2 = J3-<Kl*23>+i 
0690 LET K3^IN'i< 03/28 ) 
0700 LE'i K4~J3-( K3*28 HI 
0710 LET K5^INT< 03/33 5 
0720 LE'i K6™03~< K5*33 Hi 
0730 LE'i P=P1(K2) 
0740 LET Q-EKK4) 
0750 LET R~IK K6 ) 
0/ 80 LE i i~ *'* £.i. .'■- * 
0790 LET L$(P}""P" 
0800 LET L*( U )-"E" 

0810 LET L*<K)="1" , , , ,.,,, 

0820 PRINT $0?TAB< 10 )Wt !hB< i'o M'hk N^ ;.? ihc\ ^v ; ? 

0830 FOR N~l "i'O 41 

0840 PRINT MSs'L'KNH 

0850 NEXT N 

0860 PRINT #0s>TAB< 64 )sVn AB( 68 ;?Wf< N2 ) 

0870 LET L$<P)=" " 

0880 LET L*<a>=" " 

0890 LET L$(R)=" " 

0900 LET N2=N2+1 

0910 IF N2<8 THEN 930 

0920 LET N2=l 

0930 NEXT I P " • ■ • ' 

0931 PRINT #0 f TABC 19)5"~... ,,,.«, t i..ttu ? 

0932 PR I NT IOj"iuitiiittiiiti.MiH 

0934 PRIN'i *0*CHR$<30) ,..,.„, ,...,,.,,.., 

0935 PRINT #0»TAB<6)J"23 BAY PHYSICAL CYCLE - r ^ i'Hi^n,, 

0936 PRINT *0, "CYCLE = E 33 BAY INTELLECTUAL. CVCLc = x 

0938 PRIN'i #0jCHR$(29) 

0939 SKIP *0»1 

0940 IF V=28 THEN GOSUB 1451 

0941 II- V=2V THEN GOSUB 1455 
- 0942 IE V=30 THEN GOSUB 1458 

0946 SKIP *0»2 

0948 GOSUB 1460 

-0950 SKIP fO ? 12 

0955 IF ZH-" SINGLE" THEN GOTO 970 

0959 LET X=X+1 

-0960 PRINT X?"OF " JZJ -PRINTED- ~ " 

0961 IF X>-Z THEN GOTO 963 

0962 GOTO 370 _ 

-0963 INPUT "RUN AGAIN" »X$ " * " . 

0964 RESTORE 

0965 IF X*="YES" THEN GOTO 350 



•r r-i >.t A i 



0966 
0967 
09 68 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0980 
0990 
1000 



.u- 
IF 
GOT 
LET 
INP 
RES 
IF 
li- 
lt 
IT- 
GOT 
LET 
lb 
Lb I 
LB i 
1010 CO 'I 



1030 
1040 

•i *\ l: ,'•. 
J. U vJ V 

1060 
1070 
1080 
1090 
1100 
1110 

1 bSO 
1 1 4 

1 !i. 3 

-; -i / .'■- 
j. .J. O V 

1 1 7 
1180 
1190 
1200 
1 2 1 
1220 
1230 
1 2 4 
1230 
1 2 6 
1 2 / 
1280 
j. *•; 7 v 
130 
1310 
1320 
1330 
1340 
1330 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1430 
1451 
1434 
1455 



Lb I 

Lb I 
Lb. 'I 
Lb/1 

Lb'i 

Lb'i 

Lb'i 
Lb'i 
Kb i 

Lb'i 
IS 

GUT 
Lb'i 

L. *::. i 

1!- 

GOT 

Lb'i 

Lb'i 

lb 

80 

Lb 

00 

i ; 
i-C 



X$="ST0P" THEN GOTO 1490 
X^'SINGLE" THEN GOTO 969 
963 

Z*-X*l GOTO 400 
LIT "RON AGAIN" »X$ 
TORE 

X*="YES. M THEN GOTO 400 ~ 
X*="SAME" THEN GOTO 407 
X*="STOP" THEN GOTO 1490 
X*="FIL£ U THEN GOTO 977 - 
970 

Z*«X*J GO'IQ 350 
M<3 THEN i020 

Ml = 11-2 

Y1=Y 
1040 

M1=M+10 

Y1=Y-1 

G r ~ : IN i < Y17100 ) 

M = Yl-< C$100 ) 

N4 = 1N'1<< 13*111- 

N-N4 + .INT<C/4 >■ 

fsl '■'■" i. N i f * H/ / ) 
■ N2 = N-(N1*7 )+l 
URN 

Y2~1NT( Y74 ) 

Y3=Y~< Y2*4 ) 
Y3=-0 THEN 1150 
U 1230 

Y2-O.N1K Y7100 ) 

i v> — i "" ( i „■;, 'V- 1 U V ) 
i c> — v i n i::. t'l J. .i. 7 v 
1230 

1 i-.-ift i ■> 1 / 4vv / 

i >.:• •- I ! , i rff. * -r V V .' 

Y3 ;::: THEN 1230 

U .1 A >J V 

Ll = l 

1260 

L1=0 



•n 



-1 )/ 

■2*Cf77 



i)+D+Dl + INT<Dl/4 ) 



30; 



t v.1 ']'• 'i ii T .•:.". 



V V )~7 J. 



lb 

1 1 ' 

LET 

GOT 

Lb i 

Lb'i 

Rb I 

lb 

LET 

LET 

GOT 

LET 

LET 

LET 

LET 

LET 

LET 

RET 

.SKI 

RET 

SKI 



L='0 
tf<3 THEN 1330 
L1=0 'I HEN 1320 

L=i 

1330 

L-2 

N3-N1T1F-L 
URN 
M<3 THEN 1390 



Ml=M~3 

Y1=Y 
1410 

Mi=H+V 

Y1=Y-1 

C=INT< Y 171 00 ). 

■W1-=Y1--(C*100 ) 

N=INT( < 146907*0 )/4 )THMNT< < 1461*01 )/4 ) 

J=-N+1721119fINT( < 153*Ml+2 >/5 ) 
URN 

P '#0r3 
URN 
P #Q»2 



c ^i w** 



Lift MM 



We have been fortunate enough to gain access to the Amateur 
Computer Group of New Jersey 6800 Software Library. A listing 
of the available material follows. I have transposed all of this 
stuff Into Sphere cassette format so a certain amount of time is 
required to dump the programs for you. Please do not ush for vt 
all at once. The basic programs are In our QSS format but also 
run on SWTP 8K Baste Interpreters. If your Interpreter reads 
the programs In Asclt let me know; our OSS version 4 reads both 
Asctt (LMIU5) and Sphere formats. The Sphere binary code loads 
much faster so It ts preferred. One must own a copy of igl_ 
Comnuter Games or Some Common Basic Programs In order to have 
documentation for running the programs from them. 



id 



\6 



(xvrZoduc.TXT '- Oite #C \/o L > n) 



THE PROGRAMS ON THIS SIDE OF THIS DISK ARE MUSIC PROGRAMS . 
THE MUSIC PROGRAMS ARE EQUIVALENT TO THE 6502 VERSION OF 
HAL CHAMBERLAIN'S MUSIC PROGRAMS IN THE SEPTEMBER 1977 
ISSUE OF BYTE MAGAZINE. 

THESE PROGRAMS ALLOW YOU TO PLAY 4 PART HARMONY ON- THE 
6300. THE MUSIC BOARD WHICH IS USED FOR THIS IS ONE MUCH 
UTILIZES TWO MC1408L8 ICS. THE CIRCUITRY ON THE MUSIC BOARD 
INCLUDES A- SET OF FLIP FLOPS TO LATCH THE DATA, AND THE 
CIRCUIT FOUND IN THE SPEC SHEET APPLICATIONS ON THE MC1408. 
THE SPEC SHEET IS IN THE MOTOROLA LIBRARY BOOKS ON LINEAR 
DEVICES, AND THE CIRCUIT USED, 'IS SHOWN IN FIGURE 35 ON PAGE 
5-66. THIS CAN BE LEAD OUT THROUGH THE ACTIVE FILTER DESCRIBED 
IN HAL CHAMBERLAIN'S ARTICLE TO AN AUDIO AMPLIFIER CHIP. 

PRESENTLY, THE CIRUIT IS ON A PROTOTYPE CARD, BUT A B^ARD . 
WILL BE LAYED OUT FOR THIS CIRCUIT AND INFORMATION WILL BE 
FURNINSHED LATER. 

IT IS POSSIBLE TO USE THE MUSIC PROGRAMS WITH THE NEWTECH 
MUSIC BOARD, BUT PLEASE NOTE THAT THE NEWTECH BOARD USES ONLY 
6 BITS FOR THE MUSIC WORD, WHILE THE CHAMPERLATN USES 8 BITS. 
THE DIFFERENCE IS THAT THE NEWTECH DOES NOT DECODE THE VOLUME 
AND INTENSITY BITS, SO YOU WILL HAVE TO RUN YOUR NEWTECH BOARD 
THROUGH AN AMPLIFER, SINCE THE SOUND OUTPUT WILL BE LOW. EVEN 
THOUGH IT SOUNDS LOW IN VOLUME, IT IS A HELL OF A LOT BETTER THAN 
THE SOUND OF THE NEWTECH PROGRAMS. 

TWO TEXTS ON THIS DISK CONTAIN THE SOURCE FOR THE MUSIC 
PROGRAMS. ONE IS CALLED 'MUSIC. TXT' AND THE OTHER IS 'PLAY. TXT' 
. THESE PROGRAMS ARE IN THE TSC ASSEMBLER FORMAT IF YOU WOULD 
LIKE A SOURCE LISTING. 

THERE ARE TWO SONGS ON THIS DISK AS DEMOS: THE ENTERTAINER 
AND THE STAR SPANGLED BANNER. OTHER MUSIC PIECES INCLUDE SOME 
SOUND EFFECTS AND OARTS OF MUSIC AS SAMPLES. 
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CATALOG OF DRIVE #1 
NAME TYPE SIZE 

/VJ-/ cos" - CONTENTS.TXT 5 



VJ -/E. 



o\^ - 


ACEYDUCY 


.BAS 


17 


os"S~ 


AMAZING 


. BAS 


25 


|Ol ■-. 


ANIMAL 


. BAS . 


16 


i4& - 


AWARI 


.BAS 


19 


ns" -■ 


BAGELS 


. BAS 


17 


7.0^- - 


BASEBALL 


. BAS 


69 


-zis- 


BANNER 


. BAS 


25 


3-Z%~ 


BASKTBAL 


.BAS 


46 




BATNUM 


.BAS 


18 


4o'i- - 


BATTLE 


.BAS 


42 


457- 


BINGO 


.BAS 


32 


49?- 


BLACKJK1 


.BAS 


60 


5*rs- 


BLACKJK2 


.BAS 


20 


5"7fc>- 


BOAT 


.BAS 


31 


6tfS - 


BOMBARD 


.BAS 


22 


ocfr ■■ 


BOMBAWY 


.BAS 


23 


o-fl - 


BOUNCE 


.BAS 


12 


O"??- 


BOWLING 


. BAS 


26 


/.it - 


BOXING 


. BAS 


27 


n\- 


BULLSEYE 


.BAS 


14 


/94- 


BUNNY 


. BAS 


10 



/»// 






SECTORS LEFT = 



CATALOG OF DRIVE #1- / / % 
NAME TYPE SIZE 



A/J--2L 



•2 12- 

■-*. so - 

*?,-'■ - 

400 - 

0?2- 

/5"2~ 
74>S"_ 

■2-04-- 



BUG 


.BAS 


47 


BULLFGHT 


.BAS 


41 


BUZWORD 


.BAS 


11 


CHANGE 


.BAS 


11 


CHECKERS 


. BAS 


28 


CALENDAR 


.BAS 


11 


CHEMIST 


.BAS 


9 


CHIEF 


.BAS 


13 


CHOMP 


.BAS 


18 


CIVLWAR 


.BAS 


96 


COMBAT 


. BAS 


26 


CRAPS 


.BAS 


17 


CUBE 


.BAS 


33 


DEPCIIARG 


.BAS 


15 


DIGITS 


.BAS 


20 


DIAMOND 


.BAS 


5 


DICE 


. BAS 


6 


EVNWIN1P 


.BAS 


23 


EVNWINS2 


.BAS 


17 


FTBALL1 


.BAS 


60 


FOOTBALL 


. BAS 


55 



SECTORS LEFT = 9 



20 
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CATALOG OF DRIVE #1 
NAME TYPE SIZE 



M-1. "^tZ-FLIPFLOP 


.BAS 


16 




4o\ - FURTRADE 


.BAS 


51 




4*1 - GOMOKO 


.BAS 


16 




4 TO " GOLF 


.BAS 


70 




^S"l* GUESS 


.BAS 


8 




?(9l-~ GUNER 


.BAS 


14 




£"7?- UAMURABI 


.BAS 


46 




M/ -Z£ OO^- HANGMAN 


.BAS 


29 




£&V HELLO 


. BAS 


28 




h3- HEXAPAWN 


.BAS 


47 




/9o~ HI-LO 


.BAS 


9 


-f-.vTiJfKft 


-269- III-Q 


.BAS 


27 


-J. i ! ftOC 


26%~- HOCKEY 


.BAS 


66 




•aAd- HURKLE 


. BAS 


11 




3G>2- KINEMA 


. BAS 


7 




3-73- KING. 


.BAS 


70 




4Si- LEM 


.BAS 


51 





SECTORS LEFT = 5 

CATALOG OF DRIVE #1 \f a / 4" 
NAME TYPE SIZE 

^7- LETTER .BAS 8 

5T7-LIFE .BAS 15 

574- LIFE 2 .BAS 19 

«rf"-LITOUIZ .BAS 14 

:Ttf>- LUNAR .BAS 16 

JSl-MADLIB .BAS 43 

COS- MASTMIND.BAS 37 

OS4-MATHDICE.BAS 11 

16? -MUGWUMP .BAS 14 

l-^ff- NAME .BAS 9 

1S"2 -NICOMACII. BAS 8 

^•7-NIM .BAS 30 

Its- NUMBER .BAS 8 

1^ - ONECIIE CK . BAS 1 8 

•25*5"- ORBIT .BAS 29 

'Pfl' PIZZA .BAS 20 

TlS"- POETRY -BAS 11 

~Z41 'POKER .BAS 67 

*V2fe-QUBIC .BAS 55 

<4&- QUEEN .BAS 32 

STL' REVERSE .BAS 14 

5"39 -ROCKET .BAS 25 

W-ROCKSCIS.BAS 9 

&&* ROULETTE . BAS 4 5 

<*\- RUSSROUL.BAS 6 

SECTORS LEFT = 8 



H 



■5K 



T>,sk *» .3 



CATALOG OF DRIVE #1 
NAPE TYPE SIZE 



60S". 


SALVO 


. BAS 


56 


Ill - 


SINEWAVE 


.BAS 


3 


\2C= - 


SLALOM 


.RAS 


37 


F&7- 


SLOTS 


. BAS 


24 


"Z26- 


SPLAT 


. BAS 


39 


ITf- 


STARS 


. BAS 


11 


-2%- 


STOKMARK 


.BAS 


45 


1$<*~ 


SYNONYM 


.BAS 


17 


1-f\- 


SKYDIVER 


.BAS 


31 


<f/&~ 


targ£t 


.BAS 


21 


4^0- 


TICTAC1 


. BAS 


10 


«?rf- 


TICTAC2 


.BAS 


26 


4M- 


TOWER . 


.BAS 


36 


T 7^ ' 


"TRAIN 


.BAS 


6 


•5TZ-- 


TRAP 


. BAS 


12 


S4& - 


^ TWEN3MAT 


.BAS 


14 


5"&<' '' 


THP.EDPLT 


. BAS 


3 


Si-%- 


WAR 


. BAS 


16 


i'$S - 


WORD 


. BAS 


16 



16 1 <^ a *h^r 



*t 



v*ir 



SECTORS LEFT 



148 



catalog of drive #1 
name: type size 



M* c 



Sol 6 



y\ ■■-. *>■ 


BIORiiYT .BAS 


33 


O'U - 


NLMGAH .BAS 


16 


/o-f - 


HEX -DEC .BAS 


15 -5wT \Sv\S\t 


141 - 


INCTXM .BAS 


120 


3/2-r- 


FINALBIO.BAS 


21 



SECTORS LEFT = 371 



p,/^ f 



/'ASK/'Zt*-/ -/^w 



? 



7^ 



f "(>hceJ~t 



XL 



«*»_T 



© 



CATALOC OF DRIVE #1 
NAME TYPE SIZE 



Z<\\ -CONTENTS.TXT 



1$d- 
4-73" 

381 - 

429- 



WUMPUS 

ROULETTE 

MARKET 

CANNON 

TANK 

MUGWUMP 

SNARK 

ROADRACE 

WGTCTRL 

BATNUM 

STARWARS 

T I? IE BOMB 

SCRWORD 

ELIZA 

SAILORS 

HEXMATH 



.BAS 

. BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
. BAS 
.BAS 
.BAS 
.BAS 



f^ ?tAo 



57 
30 
62 
20 
20 
16 
13 
36 
37 
27 
107 
20 
11 
58 
7 
11 



■r 



i\ 1 



"S^T^^vC. (^^\ 



h>J-*r 



SECTORS LEFT =33 



CATALOG OF DRIVE #1 
NAME TYPE SIZE 



€32- 

S^ ' 
hi\~ 

a*9 - 
CX>5~ - 

■2.-31- 

2Z<- 
320"" 

%2" 

44<»- 

NVSR. COT- 
Oil- 

r?z~ 
\44- 



INTRODUC 

CONTENTS 

BASEBALL 

ARTPRAC 

WORLPR 

WORLPR 

BOWL 

BOWL 

LUNLAND 

SHOTSTR 

CHASE 

HORSE 

HI-LO 

CIIKBAL 

RELADDR 

CSHFLOW 

MATIIMIN 

FIBNUM 

SWRPSOR 

LUNLAN2 

UFO 

BOCCE 

DIETCAL 

DIETCAL 

GUNNER 

GUNNER 



.TXT 
.TXT 
.BAS 
.BAS 
.BAS 
.TXT 
.TXT 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
. BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.BAS 
.TXT 
.BAS 
.TXT 
.BAS 



4 ; 
11 

45 
24 
56*-, 

n 

32 

9 
27 
19 
23 

5 

9 

6 

7 
16 

2 
73 

8 
45 
33 

1 
57 

3 
24 



/.!*" 



r^.v 



TVvV ^.4v 



fc'A 



SECTORS LEFT =67 






CATALOG OF DRIVE #1 
NAME' TYPE SIZE 



HI* 



Vj-Cg /9|- imtrodUC.TXT 5 7 ~T~rA Tr«/.ifw • • ' I 

2o|- CONTENTS. TXT 15 * f 5Vf/s^' c ( c > 

~^~ FUVALINV.BAS 12 



^ ~ FUVAREDP.BAS 12 

213 ~ RECDEPOS.BAS 11 

195- REWITHIN.BAS 12 

3,4. _ INITINV ,BAS 11 

3™"3- HININWTT.BAS 15 

3 £7- NO'-'INRTI.BAS 13 

?T? - E FF I NPT I . B AS 15 

4^c) - E RN I NT AB . B A S 25 

■f3f- DEPRFCPT.BAS 7 

4i&~ DEPPEAMT.BAS 9 

4&/-SALVVAL .BAS 8 

^7SVDISC0MPR.BAS 8 

4?'?- PRINLOAN.BAS 10 

5^2- REC-PAYLN.BAS 11 

s >^- LSTPAYLN.BAS 20 

544 - RE ? -?B A L EN . BA S 1 3 

&t- ANI NPT EN. BAS 16 

^> ; .i- MOP A> 'OPT. BAS 20 

6,4- CCOMDEN .BAS 8 

e^r-PRI^FACT.BAS 4 

■ sor- AREAPOLY.BAS 10 

a?2. - P ARTTP T A . BAS 1 9 

C-f£~ ANAL2VEC.BAS 9 

/6'2- OP2VFCT .BAS 6 

/2t>_ RADTODEC.BAS 6 

/Jo-DEnTOPAD.BAS 6 

/5-2-LININTER.BAS 9 

V12 - CURLININ.BAS 11 

1 92"- S I "P RULE. BAS ' 15 

2--Z2- TRAPRULE.BAS 10 

2*?2« GAUSQIAD.BAS 15 

-2C/j- DERIVATV.BAS 8 

•Z74- ROOTniTAD.BAS 9 

"S*2. - NEWPTPOL . BAS 18 

37* - RTOFPOLY.BAS 21 

?o£~ TRTGPOLY.BAS 10 

^l-SI?TJEOn .BAS 11 

4*i- LINPROC .BAS 24 

SECTORS LEFT =64 



xV 



l^sk ^ 






CATALOG OF DRIVE #1 
NAME TYPE SIZE 



/A 



#/6 



4<%- 
i"32- 

6f? 
<W- 

6 t 7'2- 
114- 

m- 

•2.11- 

■LS3- 

m- 

-2.92- 

4/&- 
4*1- 



INTRODliC.TXT 5 

COORDCON.BAS 12 

CORDPLOT.BAS 28 

PLOTPOEO.BAS 27 

MATRASS?-. B AS 13 

MATPMULT.BAS 12 

MATRINVN.BAS 12 

PERMCOMB.BAS 6 

HANNWHTT.BAS 15 

MNVASTDV.BAS 8 

fiF.OMNDnv.BAS 5 

BINPISTP.BAS 7 

0OISSOND.BAS 5 

NORMDIST.BAS 8 

CIIISORDS.BAS 8 

STLDTDIS.BAS 8 

STUDTDTS.BAS 1R 

F-DIRTRB.BAS 10 

LINCORCO.BAS 5 

LNPP.nRES.BAS 10 

NORDRREO . BAS 2 2 

GF.OHREfiR.BAS 11 

SYSTMREL.BAS 7 

AGRFUPRO.BAS 12 

TAXDEPSC.BAS 15 

RECIPECT.BAS 10 

DAYOWEEK.BAS 10 

DABET2DA.BAS 2 

ANGLOHET.BAS 22 

ALPHABET. BAS 13 






SECTORS LEFT =2 06 

145? RETURN 

14t>8 SKIP #0 »1 

145V RETURN 

1460 GUSUfc 1480 

1464 SKIP #0»3 

1467 PRINT #0 fTAB( 25 )J "COMPLIMENTS OF -•" 

146V PRINT #0»TAB<2S)S"LONG ENGINEERING CO. - WINSTON-SALEM » N . C ♦ " 

1471 RETURN 

1480 PRINT *0?TAB< 10 ) 5 

1481 PRINT #0 j "THIS IS ONLY A DEMONSTRATION OF WHAT A COMPUTER CAN_»0 JL n 

1482 PRINT *0Vf'AB< 10") » " ~ "'" " " -— ~ ~ ~ 

1484 PRINT *0f"THIS COMPUTER IS USUALLY DOING ENGINEERING CALCULATIONS," 

1486 RETURN 

1490 PRINT " ~" "END"" OF RUN MODE" ~~~ ~" ' ~ 

1500 END 



